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A WORD FROM THE PUBLISHER Well, here is issue number two of this Uolume - 
very late. I shan't bore you with the reasons for the delay. Suffice it to 
say that I have edited this issue, and request that all submissions for future 
issues be sent to me. 


NEW CARTRIDGES ARE HERE!!! When the Astrocade balloon collapsed, there were a 
number of programs in various stages of development. Some of these have been 
completed and one of our subscribers has obtained the software so that 
cartridges can be created. These listed are now available, with their prices: 

SOCCER 29.S5 
BOWLING 29.95 
CHECKERS 19.95 
CONAN 29.95 
MUSIC MAKER 44.95 

There is a review of SOCCER on page Z5. The MUSIC MAKER cartridge 
includes the extra hardware and circuitry to provide a cassette jack 
interface, just I ike the BASIC has. This way you can save your musical 
selections and compositions on tape for further work or enjoyment. 


In addition to the above, here are some more programs on cartridge that 
are now available: 


MAZEMAN 29.95 

SONGS (by Moses)19.95 
UIDEO STORY BOOK 29.95 
MISSILE ATTACK 29.95 
LIFE 19.95 

PACMAN / MUNCHER 29.95 


All of the above can be obtained from the following dealers: 

ABC HOBBYCRAFT 2155 E. Morgan St.,EvansviI Ie, IN, 47711 
RGB ELECTRONICS 4906 Wiltshire Ave., Baltimore, MD, 21206 
MIKE WHITE SOFTWARE 4585 County Line Rd., R.D. #1, Box 373, Wakeman, OH, 
44889 

Please add #1.50 for the first cartridge and .50 for each additional 
one, for postage, and allow two weeks for delivery. 

ASTROCADE MOTHER BOARDS are available from ABC HOBBYCRAFT and also from Fair 
Radio Sales, P.0. Box 1105, Lima, OH, 45802. The photo in the Fair sales sheet 
seems to show empty slots where the custom chips go, but all the other parts 
seem to be there. They also say 'new' . Their part number is MI-90701-B620. 
Price is #6.95 plus shipping for 2#. 

TU MODULATORS We have a couple of these here at a sale price of #12 ppd. 


ARTILLERY DUEL was one of the most popular games for those who were fortunate 
enough to have purchased one before the stocks ran out. Well, we found a box 
of them, and they are being offerred to ARCADIAN subscribers first, at the old 
close-out price of #27 ppd. They are available from this address only. 
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TREfiSURE 
HUNT 

13 13 S3 0 
0 13 0 13 
0 0 * 0 0 
0 0 0 B 

LOWERCASE WORDS ARE 1-BYTE KEYPAD WORDS. UNDERSCORES ARE SPACES. 



~r r Eif^t sure: m umt 
BY TIM WHITE AND MIKE KINKEAD 

4 L=0:0=1;M= 1 

5 WR=3:UB=15:TB=50;U=0;R=0 

16 L=L+ 1 ; K=-60 ; c 1 ear ; A=-70 ; B=30 :&<< 9) =20 

86 ^ C=96;BC=90?& ‘ <0)=224 ^< !>=224;&<<2)=218;& t <3)=218;box 0,0 , 160.88 . 1 ; box 0.0,158 

20 M0=M0+10;box A.B, 10 . 10 . 1 ;box A.B,6,6,3:box A,B,4.4.3;A=A+20 

25 if A>70B=B-20 ;A=-70 

30 i-f B<-35goto 40 

35 goto 20 

40 i; f or A=1 to L 

45 box 0,0,2,88,3;Z=rnd <7)x10-80;Y=rnd <10)x 10-60 : if YO40Y=-40 

46 if PX(Z,Y')Qoto 45 

47 if PX<Z-1 ,Y-1)goto 45 

48 box Z,Y,4,4,1 ;box Z,Y,6,1,3;C=70;D=0;G=-70jH=0;next A 

49 A=0;for A=lto L 

50 J=rnd <7>xl0;K=rnd ( 10)x 10-60sif KO40K=-40 

51 if PX(J,K)goto 50 

52 if PX<J-l,K-1)goto 50 

55 box J,K,4,4,1;box J,K,6,1,3;next A 

60 NT=-1 ;8*<22)=200 ;&< 19) =20 0 ;8*< 18) =22 ;&< 20) = 1 10 < 16) = 175 

67 C-C+JX< 2)x10;D=D+JY<2> x 10 ;G=G+JX(1)x10;H=H+JYC 1)x10 

68 if C<10C=10 

69 if D>40D=40 
75 if C>70C=70 
30 if DO40D=-40 
90 if G<-70G=-70 
100 if G>-10G=-10 
110 if H<-40H=-40 
120 if H>40H=40 
900 box C.D.6,6.3 

90 1 if PX<C+1,D)=0goto 2000 

905 if PX(C,D-l)=0ooto 3010 

906 if PX<C,D)=0O=O+1;qoto 5000 
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910 box C,D.6,6,3 

920 box G,H,6,6,3 

921 if PX< G+1, H)=0goto 2010 

922 if PX< G,H-1)=0goto 3000 

923 box G,H,6,6.3 

924 if PX< G,H)M=M+1;goto 5000 

2000 9 NT=0tfor I=lto 10 ; box C:, D , 1, 1,3 ; W=K ;NM=3: L'C=Kf 17x < K>70> ; VA=VC; VB=VC ; K=K-30 
;nex t I ; f 

2001 box C,D,10,10,1;box C,D,6,6,3;box C,D,4,4,3;C=70;D=0;goto 60 

2010 NT=0;for I=lto l@;box C,D,1.1,3;NV=K;NM=3;L>C=Kf17x<K>70> ;UA=MC;MB=YC;K=K-3U 

2011 box G.H, 10. 10. 1 :box G,H,6,6,3;box G,H, 4 ,4,3;G=-70;H=0;goto 60 

300 0 16)=22;&< 17>=33;NM=0 ;NT=-1 ;&< 18) = 10 ;&<<22)=66 

3001 NT=0;box G,H,6,6,2 

3005 U=U+1;if U=Lgoto 3925 

3006 goto 900 

30 10 16) =22 ;6c< 17)=33;NM=0 ;NT=-1 ;k< 18) = 10 ;&<22)=66 

3011 NT=0;box C,D,6,6,2 

3012 R=R+l;if R=Lgoto 4925 
3813 ooto 900 

3925 P=rnd (7)x 10-80;Q=rnd < 10)x 10-60;if Q<-40Q=-40 

3926 S=P;T=Q;if PX(S,T)=lgoto 3925 

3927 box S,T,3,3,1;box S,T,1,3,3;box S,T,3,1,3;A=S;B=T 
4010 NT=0;goto 60 

4925 P=rnd <6)x10+10;Q=rnd <10)x10-60;if Q<-40Q=-40 

4926 S=P;T=Q;if PXCS,T)=lgoto 4925 

4927 box S,T,3,3, 1;box S,T,1,3,3;box S,T,3, 1,3;A=S;B=T 

4928 NT=0;goto 60 
4950 CY=0 

5000 NT =0 ;MO=20 ;t)A=15;TA=25;NM=0 ;YR=1 ;c1 ear ;CY=0;print "-PLAYER—1";print M-1;C 

Y=0:CX=10;prin t "PLAYER_2";CX=1;print 0-1 

500 1 if L> 14pr i n t "_GAME- OVER f ; goto 5020 

5010 for A= 1 to 500;next A:qoto 5 
50 15 if TR( 1)goto 4 
5020 goto 5015 

ENTER>print ";run ";clear ;CX=-24;CY=10;print "TREASURE":CX=-12;CY=-10;print "HU 
NT" ; : pr i n t '/.< 16334) , 18871REC] 


int "-PLAYER_1";pri 


>10 CLEAR ;FOR A=27T0 30;CIRCLE 0,12,A, 6 ;NEXT A;B0X 0,32,160,40,4; 

FOR B=-15T0 15STEP 30;FOR A=7T0 9;CIRCLE B,20,A,5;NEXT A;B0X B,28,3,3,7 
NEXT BjOATA CX,-33,-32, 6 ,0,L.;PRINT "HAPPINESS IS 

>20 FOR A=37T0 40;CIRCLE 0,12,A,5;NEXT A;B0X 0,10,9,9,7;DATA CX,-57,-46 
PRINT "A BLUE RAM SYSTEM!!!",;IF KPRUN 
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THIS NEW AND CONTINOUSLY RUNNING <1 HOPE) COLUNM IS FOR ALL 
LEVELS. BUT AIMED AT NEW POTENTIAL SOFTWARE PRODUCERS. HOWEVER 
YOU "OLD TIMERS" OUT THERE HAVE A LOT TO GAIN AS WELL AS THE RAW 
BEGINNER. 

NOW KM NOT OUT TO SPOIL ANYONE'S SOFTWARE BUSINESS. IN FACT 
IF YOU WANT A JUMP ON THIS COLUMN I RECOMMEND THESE SOFTWARE 
ITEMS: PACK RAT. MONKEY JUMP.AND DUNGEONS OF DRACULA [BY MIKE 

PEACE OF WAVEMAKERS3. NAUTILUS [BY BILL LOOSE OF L+M SOFTWARE]. 
THE GREAT AMERICAN JIGSAW [BY ESOTERICA LTD.] (IF AVAILABLE). 
OTHERS THAT I WILL MENTION LATER (SOME NO LONGER AVAILABLE). AND 
QUADRA (OF COURSE) [BY ME]. 

ALSO PRINTED LATELY WAS "REPACK". THE SECRETS HERE LIE IN 
THE FACT THAT ASTRO "UNPACKS" EACH LINE INTO THE LINE INPUT 
BUFFER BEFORE EXECUTION. LINES #40. 80. AND 90. EXECUTE WHILE 
THE UTILITY "STEPS OUT" OF MEMORY (SO TO SPEAK). HALTING DURING 
UNPACK OR REPACK CYCLES CAUSES A PROGRAM CRASH. HOW CAN IT WORK 
IF IT STEPS OUT YOU ASK? THE LOOPS MUST RETURN THE UTILITY TO 
MEMORY BEFORE ASTRO "UNPACKS" ANOTHER LINE (AT THE END OF THE 
CURRENT LINE). FOR N=CTO LSTEP 2:ETC. RETURNS "REPACK" TO MEMORY 
(LINE 30 SAVES THE UTILITY TO BEGIN WITH). USING ASTRO'S OWN 
BUILT IN "PACKING AND UNPACKING" ROUTINE WE CAN EITHER USE A 
LOOP. OR TAPE FROM -24576T0 -22771 AND PREFORM THE FEAT. 

IF ANY OF MY PROGRAMS PUZZLE YOU. DON'T HESITATE TO WRITE. 

A S.A.S.E. SPEEDS UP REPLYS. 

NOW ON TO OUR "CLIFF HANGER" FOR THIS MONTH. IN LESSON #1 OF 
THE ASTRO BASIC HANDBOOK YOU SAW THIS: 


10 FOR A=1TO 12 
20 PRINT A 
30 NEXT A 

WE ALL KNOW WHAT THIS DOES RIGHT? DID YOU EVER TRY: 

10 FOR A=1T0 12 
20 NEXT A 
30 PRINT A 

WHAT WILL IT PRINT? A 12? SO SOME THINK! NOT 12? WHAT THEN? 
RUN IT AND SEE! WHY? THAT IS NEXT MONTH'S LESSON. 

"FOR NEXT LOOPS AND DJNZ RELATIONSHIPS" 

ANY CLUES? YES! REREAD LESSON #1 ASTRO BASIC HANDBOOK 
HINTS? ONE! TRY CHANGING THE STEP AROUND! KEEP BUGGIN' 
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BEFORE RETURNING TO FOR NEXT LOOPS. I WANT TO EXPLAIN THIS 
MONTHS PROGRAM SOMEWHAT. HERE IS A REPRINT OF "FILE SEARCHER EB" 

ENTER>DE.:CLEAR 
1 -.INPUT 

10 CLEAR : DATA BC . 7 , 165,91,0; DATA NT , 0 , -25,8,6,- PRINT " ST0P TAPE 
20 NT=3:FOR G=0TO 5@:MU=RND (26)+64:NEXT G:CLEAR :FOR G=1T0 
m /.< 27808) c 10-8 -.PRINT #3.G.;G0SUB 80 
30 NEXT G:CC=5:PRINT "Y0UR CHOICE? 

40 G=KP-48:IF (G< 1)+(G>X.( 27308) c 10-8) GOTO 40 

50 CLEAR :DATA CX.-2?.8. 6 :PRINT "START TAPE":NT=0 

60 ;INPUT WsCLEAR :CY=12;IF Y=G CC=6:CX=-17;PRINT “LOADING"; 

GOSUB 80:RUN 

70 CC=5;CX=-35:PRINT "SEARCHING F0R":GOSUB 80:FOR D=WTG X;NEXT D 
:FOR D=WTO X:NEXT DsGOTO 60 

80 IF G=lCX=-(# OF LETTERS+SPACES)b3+1:PRINT "PROG. TITLE 
90 IF G=2 ETC. 

( LAST LINE NO.) RETURN 

ENTER>PRINT ";GOTO 10"::PRINT X(24676).1690 

THE SET UP IN LINE #1 IS BECAUSE UNLIKE AB. EB EXECUTES 
INSTRUCTIONS WHERE THEY LIE. WE NEED TO SET UP A STARTING POINT 
SO THE COMPUTER DOSEN'T GET LOST. USING LINE #1 IN AB WILL WORK. 
IN FACT. YOU HAVE THE ADVANTAGE OF SETTING UP THE LINE INPUT 
BUFFER OF YOUR "SLAVE" PROGRAMS. TAPE THOSE AB PROGRAMS : 

ENTER>PRINT " ;*<( 0) = 170 ;&( 1) « 170 :&< 2) =7 ;it< 3) =7 ( 9) =20 : RUN ": 

:PRINT VA 16384),1937 

(THIS EXAMPLE TAPES "GOLF" PG.46 VOL.3 ARCADIAN). IN EB YOUR 
SLAVE PROGRAMS WILL HAVE TO START WITH: 

1 . . 



TAPE THEM BY FIRST TIMING A :PRINT (OF THE ENTIRE DUMP) 
NEXT ENTER THIS LINE TEMPORARILY AND FIND VALUES FOR W+X THAT 
GIVE A DELAY A LITTLE LONGER THAN YOUR DUMP ROUTINE TOOK. 

30000 FOR Z=WTO X:NEXT Z;FOR Z=WTO X:NEXT Z 

THEN TAPE WITH: 

ENTER>:PRINT W.35 DA.W,(YOUR tt / S);:PRINT (YOUR DUMP ROUTINE) 


THE PUZZLING PART OF THIS PROGRAM IS THE PART DON GLADDEN DID 
NOT PRINT IN THE ARCADIAN, X(20 111). PUT AB IN THE SLOT AND 
RESET. ENTER>PRINT X(20111). NOW ENTER [WORDS] CG03. WHAT LINE # 
ARE YOU AT? ENTER: 


10PRINT "YOUR NAME 
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NON > PR I NT */(20 111). NHAT DID YOU GET NON? RESET AND 
ENTER>X( 20 111)=9990. NON ENTER [NORDS] CG03. NHAT LINE tt ARE YOU 
AT NON? ARE YOU NON FAMILIAR NITH THE +10 ADVANCE REGISTER? IN 
OLD BB IT NAS AT '/.< 20068) . X(-32608) IN VIPER-SOFT. AND */.< 27808) 
IN BLUE RAM BASIC. THIS SETS THE LOOPS AUTOMATICALLY IF A CHANGE 
IS MADE TO THE MENU. (NEN ADDITION PERHAPS). JUST ENTER: 

< LAST LINE #) [PAUSE! [PAUSE], JUST BEFORE TAPING. PONT FORGET ! 

IF ANY OF MY PROGRAMS PUZZLE YOU. DON'T HESITATE TO NRITE. 
A S.A.S.E. SPEEDS UP REPLYS. NON ON TO: 

FOR NEXT L_OORS D DJNZ 

DID YOU FIGURE THAT LOOP OUT FROM LAST MONTH? ON PAGE 21 OF 
THE ASTRO BASIC INSTRUCTION MANUAL YOU NILL READ: 

"THE NORD NEXT IN LINE 30 MEANS ADD 1 TO A AND LOOP BACK TO 
THE NORD FOR." 

NOT "HE NILL GO BACK TO LINE #20. ADD ONE TO 'A", AND REPEAT 
THE PROCESS. (LOOP). UNTIL 'A' IS MORE THAN FIVE.". AS DON 
GLADDEN SAID ON PG .69 VOL.5 ARCADIAN. NON I,M NOT SAYING THAT 
DON'S TUTORIALS IN VOL.5 NERE MISLEADING. IN FACT THIS IS THE 
ONLY TIME THAT A TECHNICAL MISTAKE NAS MADE! IF YOU HAVEN'T GOT 
VOL.5 GET IT ! DON'S (AND OTHERS) NRITINGS ARE INVALUBLE! NHY DID 
THE LOOP OVERRUN A 13? YOU ASK? NHEN BASIC NAS NRITTEN THE 
"NIZZARDS" IN THE BUSINESS DECIDED TO GIVE US A LOOP INSTRUCTION 
THAT RESEMBLES DJNZ! NHAT'S DJNZ??? YOU ARE NONDERING. DJNZ IS 
THE ASSEMBLY LANGUAGE MNEMONIC FOR A MACHINE CODE INSTRUCTION 
USED FOR LOOPS. DJNZ STANDS FOR "DECREMENT AND JUMP IF NOT ZERO" 
THE B REGISTER INSIDE THE Z80 (NOT BASIC VARIABLE B). IS PRESET. 
THEN NHEN THE DJNZ IS ENCOUNTERED B IS DECREMENTED BY ONE THEN 
TESTED. IF B=0 THE NEXT INSTRUCTION IS EXECUTED. IF NOT. THE 
OFFSET VALUE (IMMEDIATELY FOLLONING THE DJNZ) IS ADDED TO THE 
PROGRAM COUNTER. CAUSING A JUMP TO OCCUR. + A LOOP TO BE FORMED. 
NOTICE THAT THE "NEXT" IN BASIC DOES THE SAME. THE VARIABLE IS 
ADDED TO THE "STEP". THEN IT IS TESTED TO SEE IF IT HAS PAST THE 

END OF THE LOOP. IF YOU TRIED CHANGING THE "STEP" AROUND YOU 

NOULD HAVE FOUND THAT THE VARIABLE STOPED ONE "STEP" OVER THE 
END. NON. I'LL GIVE YOU SOMETHING TO HOLD YOU TILL NEXT MONTH. 

ON PG.103 VOL.4 ARCADIAN I READ (CONCERNING GOTO AND GOSUB). 
"THE COMPUTER GOES BACK TO THE BEGINNING AND SEARCHES FOR THE 
NEN LINE NUMBER.-SHOULD BE NEAR THE BEGINNING TO SAVE TIME." FOR 

NEXT LOOPS HAVE NO SUCH HANGUPS AND CONSEQUENTLY RUN FASTER. BUT 

.CAN YOU NRITE A FOR NEXT LOOP THAT NON'T END? IT HAS BEEN DONE. 
SEE MONKEY JUMP OR QUADRA! ANSNERS NEXT MONTH. KEEP BUGGIN'! 

1= OF? MEZXT L_OOR LOCKING : 

IS NHAT I CALL A METHOD OF TIEING UP A VARIABLE SO AS TO 
CAUSE A FOR NEXT LOOP TO RUN (POSSIBLY) FOREVER. I TOLD YOU LAST 
MONTH NHY YOU MAY NANT TO DO SO. ALSO. I SAID TO LOOK INTO 
"MONKEY JUMP". OR "QUADRA". IN "MONKEY JUMP" YOU NILL FIND THIS: 

110 FOR F=1TO 4STEP 0:lF E=38E=@:G0T0 230 
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DID YOU GUESS IT WAS THIS EASY? IN "U.F.O. ATTACK" < PART OF 
"QUADRA"). YOU CAN FIND THESE LINES: (BETWEEN OTHERS) 

37 FOR R=MTO QsGOSUB 6:IF W<0BOX 2,-3?.1.3.1:1F TR< U)GOSUB 6:C=Z 
:W=0:GOTO 11 


40 IF L= 1 IF N<2R=R-1:Y=Y+F:GOSUB 8: IF V=4Y=Y-5 

THE LOOP IN LINE 37 DEFAULTS TO STEP 1. THE "R=R-i" IN LINE 
40 LOCKS THE LOOP. THIS CAUSES THE FLYING SAUCERS TO STOP WHILE 
ONE LITTLE GUY COMES ACCROSS. GUNS BLAZING. LIKE "GALAXIAN". 
THE LOOP NORMALLY MOVES THE U.F.O.'S "SPACE INVADER" STYLE. (ONE 
AT A TIME). IF YOU TRY CHANGING THE "TO" OR "STEP" VALUE AFTER 
THE LOOP STARTS. YOU ARE IN FOR A DISAPPOINTMENT. THESE VALUES 
ARE "PUSHED" ONTO THE "STACK" AND ARE QUITE UNTOUCHABLE. TRY: 

10 FOR A=0TO BSTEP C 
20 B=5:C= 1 
30 PRINT A 
40 NEXT A 

ENTER> B=10 0:C=10:RUN 


THE EXPRESSION "ENTER>" MEANS ENTER WITHOUT A LINE # AND 
EXECUTE IMMEDIATELY. YOU WILL FIND THAT THE VALUES DON'T CHANGE 
AND RND #'S CAN BE PUT IN DIRECTLY AS WELL AS USING B OR C IN 
THE LOOP FOR ANYTHING ELSE. SEE LINE 90 OF "CROSSING SIGNAL". 
THIS MONTH'S PROGRAM. 

"CROSSING SIGNAL" IS A DEMONSTRATOR OF "SCREEN TAPING" AND 
“AUTO RUN". THE PROGRAM OPERATES ON THE PRINCIPLE THAT &(9) CAN 
BE MOVED INSIDE A LOOP. THE TITLE TO "THE SECRET OF PELLUCITAR". 
(WHICH HAD RAVE REVIEWS) DID THE SAME TRICK. THE PROGRAM ENDS AT 
LINE #110. AND BEYOND IS A TAPE COPY ROUTINE. NOTICE THE SCREEN 
IS ASSEMBLED AND TAPED GRAPHICS SHOWING . ALSO. IT "AUTO RUNS"!!! 

THE "SECRET" BEHIND "AUTO RUN", IS THAT THE MICROPROSSER, 
THE 280.THE BRAIN OF THE MACHINE (IF YOU WILL). KEEPS TRACK OF 
WHERE IT'S AT IN A BASIC PROGRAM WITH ITS OWN DE REGISTER. SO, 
DE STOPS AT THE WORD "INPUT" WHEN WE LOAD A TAPE. TO GENERATE 
AUTO RUN WE MUST FUDGE IN ";RUN" SO THAT THE ARCADE "THINKS" IT 
SEES ":INPUT ;RUN ". USING ":PRINT X<16384),1887" TAPES JUST 
TO THE WORD "RUN ". NORMAL :PRINT STOPS SHORT OF THE LINE INPUT 
BUFFER. AND THEREFORE CANNOT BE USED. ON PAGE 103 ASTRO BASIC 
HANDBOOK IT SAYS THAT THE LINE INPUT BUFFER STARTS AT X.(2@154) . 
LEAVING TWO BYTES FOR THE :INPUT MAKES X(20 156). ON PAGE 98 SAME 
BOOK, YOU SEE THE CODE FOR ";" IS 59 (TRY TV=59), AND FOR "RUN" 
IT'S 106 (TRY TV=106). TO GET THE RIGHT ORDER WE MUST MULTIPLY 
THE SECOND ENTRY (THE "RUN") BY 256. THAT GIVES 106x256+59=27195 
WHEN THE SCREEN IS IN PLACE. AS IT IS WHEN WE TAPE THIS MONTH'S 
PROGRAM, IT'S EASIER TO USE THIS ONE POKE. OTHERWISE USE: 

ENTER>PRINT ";RUN *';:PRINT Z< 16384) , 1887 
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THIS HAS THE ADDED BENI FIT OF ALLOWING USE OF THE BUFFER 
FROM TAPE. SEE WHAT WE DID TO "GOLF" LAST MONTH IN THIS COLUMN. 
YOU MAY EVEN START YOUR PROGRAMS OUT IN THE MIDDLE WITH A GOTO 
AND THIS AUTO RUN. THE BRB QUADRA DOES!! 

TO ALLOW SUCH TAPINGS TO BE FILE SEARCHED YOU MUST USE THE 
MODIFIED FILE SEARCHER SUGGESTED LAST MONTH. YOU DON'T HAVE TO 
:INPUT W,3 HOWEVER. THAT WAS SO DIFFERENT LENGTH PROGRAMS COULD 
BE FILED. "FOR D=0TO 11000:NEXT D" DOES IT ALL FOR AB. IF YOU 
WANT TO USE THE LINE INPUT BUFFER FROM TAPE IN BRB, AND NOT 
START YOUR SLAVE PROGRAMS OUT WITH "1 . . " , ADD LINE 5: 

5 .ABCD 

AND CHANGE LINES 1,30,AND 60, TOs 
1 INPUT ;RUN 

30 NEXT G;DATA A,>1,>5+1,27948,C;FOR E=ATO BSTEP 2;X(D)=X(E); 
D=D+2;NEXT E;CC=5;PRINT "Y0UR CH0ICE? 

60 :INPUT W;CLEAR ;CY=12;IF Y=G CC= 65 CX=-17;PRINT "L0ADING"; 
GOSUB 80 ;•/.( 0=8224 ; CALLB 

AND TAPE USING! 

ENTER>PRINT " ; RUN " >5+ 1) = 1 1537 ;X( >5+3) =- 1397 1; 

:PRINT X(24576) , 1688 [REC] 

WHEN YOU SEE [REC] IN ANY OF MY PROGRAMS IT MEANS START TAPE 
RECORDING THEN PRESS GO. IF ANY OF MY PROGRAMS PUZZLE YOU, DON'T 
HESITATE TO WRITE. A S.A.S.E. SPEEDS UP REPLYS. 

THESE CHANGES WERE ORIGIONALLY WRITTEN TO TAPE BRB 4K SCREEN 
AND TEXT SIMULTANEOUSLY . THE ATTEMPT FAILED, BUT LEFT THE "LINE 
INPUT BUFFER CALLBACK ROUTINE" <AS I CALL IT) IN ITS WAKE! 


WHEN THE PROGRAM "AUTO RUNS" IT SEES THE PERIODS IN LINES 
#1+5, IGNORING THOSE LINES. WHEN IT GETS TO ALTERED LINE #30, IT 
SETS 3 VARIABLES, THEN MOVES THE CONTENTS OF LINE #1 TO THE LINE 
INPUT BUFFER BY PEEK AND POKE, (SAME WAY "REPACK" MOVED THE TEXT 
TO PACK AND UNPACK). WHEN THE CORRECT PROGRAM IS FOUND, (IN LINE 
#60), TWO SPACES ARE POKED INTO THE FIRST TWO BYTES OF THE LINE 
INPUT BUFFER (256x32+32=8224). "TV=32" GIVES A SPACE. (SEE PAGE 
98 ASTRO BASIC HANDBOOK). I'M NOT SURE EXACTLY WHY THIS HAS TO 
BE "SPACE SPACE SEMICOLON", BUT BELIEVE ME, IT WORKS THIS WAY. 
TO GET THE COMPUTER BACK INTO THE LINE INPUT BUFFER REQUIRES 
MACHINE CODE. YOU CAN'T DO IT FROM BASIC, EVEN BRB! WHEN WE TAPE 
THE PROGRAM, WE POKE A VERY SHORT ROUTINE INTO LINE #5, AND CALL 
IT FROM THE END OF LINE 60. THE MACH CODE PART IS; 

LIBCBR.LD.DE,27949 ;FUDGES A NEW DE VALUE 

■RET. ;RETURNS TO BASIC INSIDE LINE INPUT BUFFER 
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REMEMBER THAT THE DE REGISTER (INSIDE THE Z80) IS THE BASIC 
TEXT PROGRAM POINTER. LIBCBR IS A LABEL , MEANING "LINE INPUT 
BUFFER CALLBACK ROUTINE". ".LD.DE,27949" IN ASSEMBLY LANGUAGE 
MEANS LOAD DE WITH 27949, (ADDRESS OF 2ND BYTE OF LINE BUFFER). 
".RET." IN ASSEMBLY CODE MEANS RETURN (TO BASIC), AT THE PLACE 
THE DE REGISTER NOW INDICATES!! WELCOME TO THE WONDERFULL NEW 
WORLD OF MACHINE LANGUAGE! TO GENERATE THE TWO POKES I USED "THE 
ASSEMBLER" [FROM GENERAL 01 DEO]. A MUST PURCHASE! ALL EB USERS! ! 

BE SURE TO LEAVE 5 BYTES AHEAD OF THE SEMICOLON ON YOUR 
SLAVE PROGRAMS. LIKE THIS: 

ENTER>PRINT " ;RUN sPRINT W,3;:PRINT %(24576),1766 

3 SPACES ARE ADDED TO THE QUOTE. ALSO "1766" TAPES THE 
ENTIRE LINE INPUT BUFFER. (IN BRB) 

TO STOP "AUTO RUN" ENTER>CLEAR -.PRINT :: INPUT 
AND PLAY THE TAPE. THIS DISPLACES THE DE REGISTER AND ALLOWS 
YOU TO LIST THE PROGRAM AND LEARN ITS CONTENTS. DON'T USE THIS 
TO PIRATE TAPES! THOSE COPYRIGHTS THEY PRINT ARE LEGAL IN COURT 
EVEN WITHOUT EVER BEING REGISTERED. TO COPY GAURD A TAPE (IN AB) 

ENTER>PRINT "sRUN *;X(20120)=199PRINT /( 163S4),1937; 

Z< 20120)=3779 [REC1 

MOST PURCHASED SOFTWARE IS LI STABLE, HOWEVER. IF WE COULD 
ONLY UNDERSTAND THE LISTINGS!! TRY THIS: (IN EB ONLY) 

10CLEAR ;XY=0;FOR A=0TO 100;LINE RND (160)-81,RND (88)-45,3;@(A) 
=XY;NEXT A;XY=0;FOR A=0TO 1@0;LINE @(A),B.(@( A),1),3;NEXT A;RUN 

CAN YOU DO THIS IN AB? SEE NAUTILUS [BY L+M], OR CHANGE THE 
"BYTE ( @( A) , UPPER) " TO " @( A) 4-256-( RM#0) x(@(A)<0) " , OR SEE PG. 59 
VOL. 5 ARCADIAN. HOW? WITH THAT? NEXT MONTH! KEEP BUGGIN'!! 

NAUTILUS [L+M SOFTWARE] HAS A VERY INTERESTING TITLE PROGRAM 
WHICH SEES A SUBMARINE EXPLODE WITH RANDOM LINES AND THEN THESE 
LINES DISSAPPEAR LEAVING THE SUB WITHOUT A SCRATCH! HERE ARE THE 
TWO LINES RESPONSIBLE FOR THIS (THOUGHT TO BE IMPOSSIBLE) FEAT: 

6 FOR A=1T0 20;FC=114;NM=3;NV=255;LINE 24+RND (2xH)-H,-40+H-RND 
(Hx2) . 4=XY; 3( (A) =XY ; FC=7; LINE 24 ,-40,3; 4-;NEXT A 

7 FOR A=1T0 20 ;FC=1 14;NM=3;NV=255;XY=*(A) ;LINE 24, -40,3;FC=7; 4,; 

NEXT A;FC=8;BC=238;&( 10) = 154 (9) =- 1 ;&( 15) =0 

IGNORING THE COLOR CHANGES, SOUND ENHANCEMENTS, AND THE PORT 
COMMANDS (AT THE END), YOU GET BASICALLY: 

10 FOR A=1T0 20;LINE RND (150)-51,35-RND (150),0:X(A)=XY;LINE 24 
,-40,3;NEXT A;FOR A=1T0 20;XY=*(A);LINE 24,-40,3;NEXT A 
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IN THE FIRST LOOPS, H=75. IN THESE LAST LOOPS YOU CAN SEE 
WHAT DOES THE RANDOM LINE ERASE. AN INVISIBLE LINE IS DRAWN TO 
A RANDOM LOCATION, THE VARIABLE XY IS STORED, AND A VISIBLE LINE 
IS DRAWN TO THE SUBMARINE. THE SECOND LOOP MOVES VARIABLE XY TO 
THE STRINGED LOCATION WHERE OUR VISIBLE LINE STARTS, THEN IT 
REDRAWS THE LINE TO THE SUB USING XOR (REVERSE LINES). ON PG.109 
ASTRO BASIC HANDBOOK IT TELLS US “EACH LINE IS DRAWN BEGINNING 
AT THE END POINT OF THE MOST RECENT LINE DRAWN. THE LOCATION OF 
THIS END POINT IS STORED IN THE TWO LETTER VARIABLE XY". MEANING 
THAT WHEN A LINE IS DRAWN IT DRAWS FROM THE LOCATION IN XY TO 
THE LOCATION SPECIFIED IN THE LINE COMMAND, THEN BALLY UPDATES 
VARIABLE XY. IF WE DRAW AND REDRAW THE SAME REVERSE (XOR) LINE 
WE WIND UP WITH THE ORIGINAL PICTURE REGARDLESS OF WHAT IT MAY 
HAVE BEEN. THE PROBLEM (UP TO NOW) HAS BEEN HOW TO REDRAW A LINE 
FROM THE STRUNG XY. ON PG.110 AB HANDBOOK IT SAYS “THE Y VALUE 
OCCUPIES THE HIGH ORDER BYTE OF THIS WORD, X THE LOWER BYTE". WE 
MUST PERFORM A "BYTE SPLIT" TO FILL A LINE COMMAND WITH THIS NO. 
THESE THREE LINES OF PACK RAT CWAVEMAKERS] SHOW US SOMETHING: 

405GOSUB 60 ;&i( 17) = 129; FOR A=840TO 255STEP -8 

406BOX A, -2,8,8,3; BOX A+8 ,-2,8,8 , 2 ;BOX A-24 ,-2 , 6 , 6 , 3; BOX A-16, -2 
,6,6,2;&( 21) =A ;&< 23) =A 
410NEXT A ;8>c< 16) = 1?; GOTO 15 

NOTICE THE "A" VARIABLE IN THE BOXES IS OVER 255. THIS MEANS 
THAT BALLY IGNORES THE HIGH ORDER BYTE BETWEEN COMMAS IN BASIC!! 

THE X PART IS DONE FOR US THEN. THE Y PART IS DONE ONE OF 3 
WAYS. USING THE BYTE COMMAND (AS I DID LAST MONTH), DIVIDING BY 
256 (WHICH GETS MESSY), OR USE VOL.5 PG.5? ARCADIAN. HERE ARE: 

LINE ERASE PROG RAM S AB 

10 CLEAR ;FOR A=0TO 100;LINE RND (160)-81,RND (88)-45,3;@(A)=XY; 
NEXT A;XY=0 ;FOR A=0TO 100 ;B=@(A) ;LINE B,B-f256-(RM#@) x(B<0) ,3;NEX 
T A;RUN 

10 CLEAR ;FOR A=0TO 100;LINE RND (160)-81,RND (88)-45,3;@(A)=XY; 
NEXT A;XY=0;FOR A=@TO 100;B=@(A);LINE B,X(20005),3;NEXT A;RUN 

IN THE FIRST ONE I BORROWED ANOTHER VARIABLE SO AS TO CUT 2 
BYTES OFF OF THE SUGGESTED "4-256" METHOD I HINTED AT LAST MONTH. 

IMPROVEMENTS ARE THE NAME OF THE GAME HERE. TRY USING THE 
KEYWORD "DEFAULT" IN PLACE OF "XY=0" IN THE EB VERSION PRINTED 
LAST MONTH. XY IS ZEROED ON A DEFAULT COMMAND IN EB, OR ON CLEAR 
IN AB. YOU MAY NOT BE ABLE TO USE THIS IN A PROGRAM THOUGH, FOR 
OBVIOUS REASONS, CLEAR SCREEN OR DEFAULT ALL 2 LETTER VARIABLES! 

THE 2ND AB LINE ERASE USES VOL.5 PG.59. REMEMBER THAT EACH 
VARIABLE USES TWO ADDRESSES IN MEMORY. "B" USES X(20004) FOR THE 
LOW ORDER BYTE AND X(20005) CX<20004+1)] FOR THE HIGH ORDER 
BYTE. IF WE HAD USED A "Q" INSTEAD OF A "B", THE HIGH ORDER BYTE 
FALLS AT X(20035). IF ANY OF MY PROGRAMS PUZZLE YOU, DON'T 
HESITATE TO WRITE. A S.A.S.E. SPEEDS UP REPLYS. 
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OMER THE LAST TWO MONTHS I'ME BEEN TALKING ABOUT DIFFERENT 
WAYS TO FILE SEARCH AND AUTO RUN. THE REASON IS THAT THERE ARE 
MANY WAYS OF TAPING PROGRAMS. WHY? LET'S SAY YOU HAME A PROGRAM 
THAT WON'T FIT IN 1808 BYTES. USE EB? CAN'T SELL IT TO AB USERS. 
USE 2 PROGRAMS? WHY NOT? BECAUSE AB TAPES THE MARIABLES!! IF YOU 
WISH TO KEEP THE MARIABLES INTO THE SECOND PROGRAM YOU MUST USE: 

CA R RY O^EIR MEMORY 

THERE ARE THREE METHODS OF HOLDING MARIABLES INTO ANOTHER 
PROGRAM. THE FIRST IS SEEN IN "HAUNTED HOUSE" INEW IMMAGE], THE 
SECOND IN QUADRA CAB + BR 4K MERSIONS), AND THE ONLY PLACE YOU 
WILL SEE THE THIRD IS IN "SPACE MISSION", THIS MONTHS PROGRAM. 

YOU MUST ENTER THE TEXT EXACTLY AS SHOWN IN THE LISTING OR 
PART 2 (NEXT MONTHS PROGRAM) WILL BLOW RIGHT OUT!! THE CARRY 
OMER IS IN THE CUSTOM CHIPS. LINES 710 AND 720 DO SOME PRETTY 
FANCY STUFF TO LOAD THE INTERCEPT FEEDBACK REGISTOR WITH 1 OF 2 
POSSIBILITES FOR MARIABLE A. ONLY IF THE TEXT IS IN THE RIGHT 
PLACE IS INPUT PORT 8 (SEE PG.102 AB HANDBOOK) GOING TO GIME THE 
RIGHT NUMBERS. THE CUSTOM CHIPS IS ONE PLACE TO HIDE A MARIABLE 
THAT YOU WISH TO PASS ALONG FROM ONE PROGRAM TO ANOTHER, BUT NOT 
A STRING, OR THE WHOLE SCRATCHPAD. HOW CAN WE CHANGE A PROGRAM 
TEXT AND KEEP THE SAME SCRATCHPAD < SCORES OR STRINGS)? SEE THIS 
COLUMN NEXT MONTH! COR QUADRA, OR HAUNTED HOUSE) KEEP BUGGIN'!!! 

BEFORE KEYING IN THIS MONTHS PROGRAM, TRY THIS: 

ENTER> CALL3177 

THE ARCADE STILL FUNCTIONS, BUT YOUR BASIC PROGRAM IS GONE 
FOREMER, (SEE ARCADIAN MOL.l PG.31 AND 39). ALSO, RELOAD "SPACE 
MISSION [PART 1]", [HALT], AND RUN THIS LITTLE TEST: 

ENTER>CLEAR ;CY=16;TM=100;A=&<8);CLEAR ;CY=16;TM=102;B=&< 8)5 
CLEAR ;PRINT A,B 

THIS CHECKS THE INTERCEPT FEEDBACK NUMBER RETURNS. 

IT SHOULD PRINT: 143 159 

IF IT DOESN'T, YOU'ME GOT A MISTAKE IN KEYING IN THE FIRST 
HALF OF PART 1 TEXT, AND PART 2 WILL "CALL3177", CSEE LINE 10 OF 
THIS MONTHS PROGRAM). IF YOU CAN'T FIND THE BUG, WE CAN CHANGE 
"CARRY OMER" METHODS. CHANGE LINE 720 OF PART 1 TO READ: 

720 ’/.< 20260) =A;FC=7 

AND CHANGE LINE 10 OF PART 2 TO READ: 

10 A=X< 20260) ;IF ABSCA)*1CALL3177 
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NON LET'S SEE NHAT NE'VE DONE. X(20260) IS 2 BYTES INTO THE 
"STACK AREA", (PG.103 AB HANDBOOK). IF NE USE ":PRINT " NE DON'T 
TAPE THAT ADDRESS, SO OUR DATA HAS "CARRIED OVER". IN "QUADRA" I 
CARRIED A STRING IN "THE STACK" NITH THIS LOOP: 

440FOR Q=0TO 12 Z + Qx2> =<5( Q) ;NEXT Q ; CLEAR ; CX=-30 ; CY=@ ; 

PRINT "START TAPE 

Z=20264 IN THIS LOOP. THE SCORES ETC. ARE MOVED OUT INTO THE 
@<X> STRING FOR EACH PROGRAM. NON YOU MAY SAY "NHY DO THAT NHEN 
YOU CAN USE THE "STOP SHORT" METHOD THAT HAUNTED HOUSE FROM [NEN 
IMMAGE3 USES?" THAT METHOD NAS BETTER! SIMPLY TAPE THE FIRST 
PROGRAM NORMALLY. THEN TAPE THE OTHERS THAT FOLLON A SPECIAL NAY 
SO AS NOT TO TAPE OVER THE VARIABLES! HAUNTED HOUSE NAS TAPED: 

ENTER> : PRINT '/.< -24576) , 904PRINT X(20000>,1 


AS YOU PROBABLY GUESSED, THE TEXT AND "TXTUNF" (PG.103 AB 
HANDBOOK) NAS ALL THAT NAS TAPED. TO SAVE THE SCREEN ALSO, USE: 

ENTER> : PRINT '/.< 16384) , 1809 

THIS LEAVES THINGS NHERE THEY LIE, MEANING THAT NO LOOPS ARE 
REQUIRED HERE. BUT, IN QUADRA I NI SHED TO END EACH PLAY SEGMENT 
BY PRINTING "RENIND TAPE AND PLAY BUT DON'T [RESET]". NON IN THE 
FIRST PROGRAM, I NANTED TO USE "AUTO RUN". ALSO, ONE OF THE PLAY 
SEGMENTS USES THE LINE INPUT BUFFER TO SET &(9). I HAD TO TAPE 
OVER THE VARIABLES TO GET TO THE LINE INPUT BUFFER. (SEE PG.103 
AB HANDBOOK). SO "TAPE SHORT" NAS OUT, AND I USED THE "MOVE IT 
OUT OF THE NAY" METHOD. BUT. NHY NOT USE "TAPE SHORT" IN "SPACE 
MISSION"? BECAUSE, A CHECK SUM BYTE GOES TO TAPE AND INPUTS AT 
THE END OF EVERY TAPE LOAD, (FOR THE :LIST FUNCTION). IT APPEARS 
AS GARBAGE IN THE ADDRESS FOLLONING AN INPUT. ALSO, THE TXTUNF 
MUST BE TAPED OR STRANGE THINGS OCCUR, (MORE ON THAT NEXT YEAR), 
SO THE VARIABLE "A" MUST BE MOVED TO BE KEPT. ALSO, THIS IS NHY 
NE USE VARIABLE "Y" TO "FILE SEARCH" NITH. INSTEAD OF "Z". "BC" 
FOLLONS, AND NE NOULD LOSE OUR COLOR NITH EVERY TEST PASS. (SEE 
VOL.5 PG.59 ARCADIAN) (REMEMBER THAT X(20000)=TXTUNF). 

NON, YOU MAY BE NONDERING NHERE I PUT MY "CHRDIS" ROUTINE 
(VOL.5 PG.14,15,37,AND 72 ARCADIAN) FOR MY CHARACTERS, IF I USED 
THE STACK TO CARRY OVER MEMORY. NELL, NEXT YEAR I'LL TALK ABOUT 
THAT NHEN I DISCUSS "TIME SHARING, THE USE OF USED MEMORY". ALSO 
NE'LL GET INTO "THINGS CALLED STRINGS" AND LOOK AT ALL FIVE NAYS 
TO RUN MULTIPLE ARRAYS!! (THEY CAN ALL BE DONE IN AB). I'LL TELL 
YOU NHAT I FOUND INSIDE "THE GREAT AMERICAN JIGSAN" [ESOTERICA 
LTD.]. BUT FIRST, I NANT TO TALK ON SOUND. THERE ARE TNO NAYS TO 
ACCESS THE SOUND IN THE BALLY, DIRECT AND INDIRECT. THESE ARE 
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ALL WRITTEN UP IN THE ARCADIAN VOL.l PG. 62-66 FOR DIRECT, AND 
PG.71-73 FOR INDIRECT. NOW, I'M NOT GOING BACK OVER ALL THAT. I 
AM GOING TO SHOW THE DIFFERENCES FROM COL. 1 (OLD BB) AND AB. IF 
HOWEVER, YOU HAVE EB, THE TUTORIAL APPLIES TO YOU 100’/. ■ ' YOU MAY 
CONSIDER PURCHASING "THE PORT TO MARIABLE TRANSLATOR" BY [GEORGE 
MOSES]. IT CONCERTS AB TO BB, OR EBI! FINALLY, YOU MAY WISH TO 
REMOVE THE "<L<16)=71" FROM LINE 20 OF SPACE MISSION PART 2 AND 
HEAR WHAT HAPPENS! NEXT YEAR I'LL EXPLAIN "MO SHIFT, A KILLER" 11 
FOR RIGHT NOW, HOWECER, LET'S LOOK AT THESE LOOPS: 


W 1 


10 FOR 
20 PRINT fi 
30 IF TR(1) RUN 
40 NE) 


TO 100 STEP RND (10) 


LOOP 1 

10 NEXT A 

20 PRINT “IT WORKS"! 
30 FOR A = 1 TO 100 
40 RUN 


ENTER "GOTO 30“ TO START LOOP 1. “RUN” STARTS LOOP 2. TRIGGER (1) 
CHANGES THE 'STEP' VALUE IN LOOP 2. HOW? SEE PAST (OR FUTURE) EPISODES OF THIS 
COLUMN. 


• 

SOCCER Overview by Herb Matthews. Yeah! for Soccer!! For me, this 

cartridge for the Astrocade is one of the most refined games available for our 
systems. I was able to secure a copy through ABC Hobbycraft, and boy am I 

glad! 

Check this partial list of options that are available: PLAYERS(i-4) with 
1 or 2 players teaming against the computer or an equal number of human 
players; play boundaries; difficulty level (when vs. the computer); ball 
direction (in 45 steps over a range of 0 , 90 , 180 , or 3G0 ); and more. 

can have a significant effect on the style and intensity of 
offers a lot more control than 'foosball'. Within zones, the 
dribble’ the ball, and pass at angles, even while evading other 
jn-screen time display lets you know the playing time available, 
include a satisfying 'kick' sound, and a brief crowd cheer at 


These options 
play. Soccer 
pIayers can 
pIayers. An i 
Sound effect 
eaci\ scor ing. 
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1 . * * 

2 . EX.BASIC ONLY 

3 . 

A .SNAP & SHOW DESIGN GENERATOR 

5 . BY 

6 . DIETER HEINERMANN 



'freeze. ^8S 


9 .SET 1 LETTER VARIABLES TO 0 
10 ZERO 

15 .COLD START GOTO CHECK SCREEN 

20 GOTO 160 
25 .WARM START 
30 CLEAR 

35 .PICK RND STARTING LOCATION 
40 X = RND (140)—71 
50 Y=RND (80)-43 
55 .A & B =INITIAL SPEED 
60 A=1;B=1 
65 .T=TIMER 
70 FOR T=0T0 555 
75 .MAIN LOGIC & BOUNDRY CHECK 
80 C=X+ (AbE) ” IF ( C<-74 ) + ( 074 ) A=-A 
90 D=Y+(Bt<F) ; IF (D<— 41 ) + <D>41 )B=-B 
100 X=C;Y=D 

105 .DISPLAY WHAT WE HAVE IN 4 SECTIONS OF SCREEN 
110 SHOW X , Y, 2, 3 (1 ) 

120 SHOW -Xi-Y,2,a<l) 

130 SHOW X,-Y.2*a<l) 

140 SHOW -X,Y.2.a<l) 

150 NEXT T 

155 .START SET NEW RND SPEED FOR X & Y 

160 E=RND (4);F=RND (3) 

165 .CHECK SCREEN IF PIXEL 0,0 3,3 6,6 =0 GOSUB NEW BOX 
170 IF <PX(0,0))+(PX(3,3>)+(PX<6,6))=0GOSUB 200 

175 .IF PIXEL 0,0 OR 3,3 OR 6,6 >0 SNAP 12,12 PIXELS FROM CENTER OF SCREEN 
180 SNAP 0,0,12.12,a<1) 

185 .GOTO WARM START 
190 GOTO 30 
195 .NEW BOX 
200 CLEAR 

210 BOX 0,0,12,12,7;BOX 0,0,10,10,6;B0X 0,0,8,8,5 
220 BOX 0,0,6,6,3;BOX 0,0,4,4,2;BOX 0,0,2,2,1 
230 RETURN 
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10 CLEAR ;Z=10;K=205FC=252;BC=1195Bc(9)=255;CX=-30;CY=K5PRINT "CLAIM JUMPING 
20 CX=-455CY=-Z5INPUT "NUMBER OF PLAYERS "CSIF (C>4)+(C<2)GOTO K 
30 clear ;d=0;e=0jf=0;g=0;q=0;p=i;n=90;s=370;r=4205T=470;u=480 
40 FOR A=-69T0 71STEP K 

50 FOR B=-39T0 41STEP K 540 PRINT "#1 SCORED",#3,D," RETURN 

60 BOX A,B,2,2,15MU=90 550 PRINT "#2 SCORED",#3,E," ";RETURN 

70 NEXT Bj NEXT A 560 PRINT "#3 SCORED",#3,F, " ";RETURN 

80 X=l;Y=l;GOTO 360 570 PRINT "#4 SCORED",#3,G," "iRETURN 

90 V=x;W=YJH=0jJ=15+P 580 FOR A=1T0 CSIF TR(A)GOTO Z 

100 IF 8c(J)=lY=Y+K 590 NEXT A;GOTO 580 

110 IF &(J)=2Y=Y-K 600 PRINT " 1ST - ",;RETURN 

120 IF 8c < J) =4X=X-K 610 PRINT " 2ND - ", ; RETURN 

130 IF lc(3) =5Y=Y+Z j X=X-Z 620 PRINT " 3RD - RETURN 

140 IF MJ)=6Y=Y-Z5X=X-Z 630 PRINT " 4TH - ",; RETURN 

150 IF 8e < J ) =8X=X+K 
160 IF &<J)=9Y=Y+Z;X=X+Z 
170 IF J)=10Y=Y-Z;X=X+Z 
180 BOX V,W,2,2,2SIF <V#X)+<W#Y)MU=83 
190 IF (X<-69) + (X >71) + (Y<-39) + (Y>41)GOTO 80 
200 BOX X,Y,2,2,1iFOR A=1T0 30 
210 IF TR(P)L=X5M=Y;G0T0 230 
220 NEXT AiGOTO N 
230 A=(Y+39)c20S IF RM GOTO 260 

240 IF PX(X+2,Y)=OBOX X,Y,K,2,15MU=84;GOTO 280 
250 GOTO N 

260 IF PX(X,Y+2)=0B0X X,Y,2,K,15MU=68;GOTO 310 
270 GOTO N 

280 IF PX(X+Z,Y+2)IF PX<X-Z,Y+2>IF PX(X+2,Y+K)M=Y+Z5GOSUB R 
290 IF PX(X+Z,Y-2)IF PX<X-Z,Y-2)IF PX(X+2,Y-K)M=Y-Z5GOSUB R 
300 GOTO 330 

310 IF PX(X-K,Y+2)IF PX(X-2,Y+Z)IF PX<X-2,Y-Z)L=X-Z5GOSUB R 
320 IF PX(X+K,Y+2)IF PX(X+2,Y+Z)IF PX(X+2,Y-Z)L=X+ZjGOSUB R 
330 IF Q=28G0T0 500 


350 P=P+15 IF P>C P=1 

360 CX=-745CY=l;TV=P+485GOTO N 


370 MU=775MU=78;GOSUB PbZ+3705H=1;Q=Q+1;RETURN 
380 D=D+1;@(1)=D5RETURN 

390 e=e+i;@< 2 )=e;return 

400 F=F+lj@(3)=F5RETURN 
410 G=G+l;e(4 )=g;RETURN 

420 BOX L,M,14,14,1;GOSUB PbZ+4205GOSUB S;RETURN 

430 GOSUB T5 RETURN 

440 GOSUB U;RETURN 

450 GOSUB T5GOSUB US RETURN 

460 GOSUB USGOSUB 490;RETURN 

470 BOX L,M,2,2,2SRETURN 

480 BOX L-4,M + 4,2,2,2j BOX L + 4,M-4,2,2,2SRETURN 
490 BOX L-4,M-4,2,2,2> BOX L+4,M + 4,2,2,25 RETURN 
500 I=Z S FOR A=KTO 1STEP -1 
510 FOR B=1T0 CSIF @(B)=A@<I)=BS1=1+Z 
I 520 NEXT B5 NEXT A 

530 CY=25;FOR A=ZTO CbZ STEP ZSCX=-555GOSUB A+590;GOSUB @(A)bZ+5305CY=CY-6;NEXT 
A 5 GOTO 580 , 
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PLOTTER DRIUE PROGRAM 


00001 CC»6;CX=-50;CY*10;CF=L.;Print "INPUTTING-DATA*;:input X<!3801) 

00002 clear iQC-AiCF>L.;CY=37;print *_GRAPHICS-PLOT-MENU*;CF*SM.;CY*19;CC*7;C 

L=-58;Print *1.-input NEVLDATA*sprint "2._RECORD_PROGRAM_&_DATA_to TAPE*;print • 
3.-PLOT-DATA 

00003 print ;CC=5;input "SELECT*A;CL=-79;CC=7;if <A=l)+<A=2)goto A*100 

00004 clear ;CC=6;CF=L.;CY=37;print •_PLOT-PROGRAMS-MENU*;CC=7;CF=SM.;CY=19;C 

L=-58;print *1.-SPACE-SHUTTLE*;print *2.-ROBOT 

00806 print ;CC=5;input 'SELECT'X;print ;CC«7;print “PLOT.to TU<1),SERIAL-PLOTTE 
R<2)*;print ;CC*5;input "SELECT*Y;CC=7;CL=-?9;goto 10*Y+X 

30007 :return : print *PUT_IN_COLOR_PENS__1-G-2-B-3-R.-HIT-GO.";if KP*print :retu 

rn 

30008 CC*5;print *BY-PENMAN";CC=7;print "AND-BALLY*;CL=-79;print ;CF=SM.;CY=49;N 
T=l;print "KP=MENU*;if KPgoto 2 

00009 print *U_h_M_ 2500,1333.*;:return ;NT*l;goto 2 

30013 .JUNEi1985_LEROY-G.-FLAMM—SZ=1381_DATA_LENGTH*4400_BYTES 

80011 S*-32767;E=-33351;gosub 300;CC=6;CF=L.;CL=-65;print ;CY=35;Print "SPACE-SH 
UTTLE*;goto 8 

00012 S=-3834?;E=-28369;gosub 380;CC=6;CF=L.;CL=27;print ;CY=48;Print "ROBOT";gc 
to e 

00021 S=-32767;E=-30351;gosub 400;gosub 7;goto 31 
33022 S=-30349;E=-28369;gosub 400;gosub 7;goto 35 
00031 Print *U_A_M_100,1600,PI,90,S12,LSPACE-5HUTTLE—*.;TV«18 

00032 TU=13;Print “P3.LBY-PENMAN_",;TU=10 

00033 TV»13;Print *P2, LAND-BALLY—* 

00034 goto 9 

30035 Print "U-A-M-2500,1350,Pl,Q3,Si2,LR_O_B_O_T_* 

00036 Print *U_A_M_2375,1400,P3,S6,LBY-PENMAN-ANO-BALLY* 

00037 goto 9 

38100 if F=0S=!8001;goto 110 
38135 S=F+2 

30110 A=S;print ‘input 9999.to TERMINATE_DATA_input 

03120 print Ml>A,,;input B;if B=9999E=A;2<A)*B;F=A;k»(F+32767)/2+1;goto 140 
30130 % iA)=B;A=A+2;goto 120 

00140 print Ml,"ADD_NEW_PROGRAM_NAME_to LINE-NO._4__AND-ADD-NEU-LINES—1?_AND_2? 

_WITH_r0LL0WING_S=*,S> *_E*“,E;print "USE_goto 2_to RECORD-to TAPE.‘;Prmt ;li 

St 4.1;STOP 

38208 CC=5;print “START-TAPE.-HIT-GO. "; if KPCC=6;Print "RECORDING 

80210 .-print ;for A=lto 500; next A;: print %<! 8001), K; goto 2 

88300 clear ;NT=0;fcr I=Sto Estep 4;if %(I)=9999return 

00310 if X(I)>30001ine (X(I>-3000)/i6-78.%(I+2)/16-58>3;next I 

38320 line %(I)/16-78.X<I+2)/16-58,7;next I 

88400 clear ;NT=8;sprint 

30410 print *I_C*11,*1S* 

00420 print "B_W1,P27* 

80430 for I=Sto Estep 4;if %(I)=9999return 

30443 if 2(1)>3000print Ml,*U-A_M_*,Z(I)-3000,*,■,X(I+2),*,*;next I 
30450 Print Ml,*D-A.M_",2(1),*,*,2(1+2). *,*;next I 
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clear :BC=rna l32>x8;FC=BC+4 
For Z=0to 49;@<Zx2)=Zx262t-100;@<Zx2+l)=Zx 
2rl00;next Z 

T=0:input "PILE_SIZES?_L"L,R 
1+ L->-R=0goto 40 

print *11,L,”-LEFT",#4,R,"-RIGHT 
i F L-t-R>5goto 80 
print "YOU RE_A_REAL_SPORT! 
print "DO_YOU_WANT_TO_GO_FIRST? 
r=KP:iF k=78goto 690 
0 lF L=Rgosub 1200 
0 iF A8S(L-R)=1gosub 1200 

0 print "YOUR_MOVE:_ 

0 I=KP; TV=I;0=KP;TV=J;iF J<65K=KP;TV=K 
0 lF I>48iF I<58goto 170 

0 print ;T=T+1;iF T>2print “ALRIGHT,_THAT ' 
IT'“: print "IJ3UIT! ";STOP 
0 print "1MPRQPER_ENTRY!";goto 120 
0 1=1-48;lF J<65I=Ixl0+(J-48>;J=K 

5 lF J=76goto 180 

6 iF J=82goto 182 

7 lF J=66goto 184 


* takes 6 matches From thf 
- takes 8 matches From ths 
i takes 5 matches From 
Answer Questions with 
ir no For number 1 player. 


900 P=C+D 

920 lF @<P)>Lgoto 940 
930 M=L-@(P);L=«(P);E=76;c 

940 M=0;E=66 

950 P=A:iF C<A_P=C 


970 For Z=Pto 0step -2 
990 lF @(Z)=Lgoto 1040 
1000 lF @(Z+l)=Laoto 1050 
1010 lF @(Z)=Rgoto 1060 
1020 lF @<Z+l)=Rgoto 1070 


iF @(Z+l)=Laoto 780 
lF S(Z)=Rgoto 800 
iF @lZ+1)=Raoto 820 

Z=Z+2:lF Z >99orint "I_DON'TKNQW!";goto 


D=l;iF M=laoto 840 
goto 740 

D=0:iF M=lgoto 840 


F L«=Rgoto 895 
F C=Agoto 1080 
r A>Cgoto 900 


r e(P)>Rgoto 940 

=R-@ (P);R=8(Pi;E=82;goto 1110 

=L:L=0:R=0;E=66;goto 1110 


1050 lF @(Z)=Rgoto 1110 
1055 goto 1075 _ 

1060 lF @(Z+l)=Lgoto 1110 

1065 goto 1075 

1070 iF @(Z)=Lgoto 1110 

1075 lF G=lgoto 960 

1077 G=l;goto 965 

1080 lF L>Rgoto 1100 

1090 R=R-l;M=l;E=82:goto 1110 

1100 L=L-1;M=1;E=76 

1110 print "_1_TAKE:".#3,M,;TV=E 

1115 gosub 1150 

1120 lF L+R>0goto 120 

1130 print "I_WlN!!";U=U+1;goto 1160 

1150 print ;print "LEAVING",#4,L,"-LEFT",R," 

-RIGHT";return 

1160 print “COMPUTER_=_“.#1,U," HUMAN = “ 
,S 

1170 print "DO_YOU_InANT_TO_PlAY_AGAIN?" 

1180 k=KP;lF K=G9goto 20 
1190 T=2;goto 150 

1200 print "YOU_LIKE_SITTING DUCKS,_ _DON'T 
YOU?";return 
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10 BO 7; FC-25 1; E-1; B- 1; NT-0; CLEAR 
I I PRINT ;PRINT " CALENDAR PROGRAM 

12 PRINT ;PRINT " ENTER A MONTH, DAY, AND YEAR, AND I'LL DRAW YOU A CALENDAR! 

14 PRINT " FORMAT: (12 3 1945) 

15 INPUT " ENTER MONTH #:",M 

16 INPUT " ENTER DAY // :",D 

17 INPUT " ENTER YEAR <f: " ,Y ;GOTO 270 

100 .THESE TELL THE COMPUTER THE MONTH NAMES AND LENGTH 

101 PRINT "JANUARY, ",;L«31;RETURN 

102 PRINT "FEBRUARY, ",;L-28+(Y-Yc4b4)-(Y-Yc100b100);RETURN 

103 PRINT "MARCH, ",jL-3I;RETURN 

104 PRINT "APRIL, ",;L-30;RETURN 

105 PRINT "MAY, ",;L-31;RETURN 

106 PRINT "JUNE, ",;L-30;RETURN 

107 PRINT "JULY, ",;L-31;RETURN 

108 PRINT "AUGUST, ",;L-31;RETURN 

109 PRINT "SEPTEMBER, ",;L-30;RETURN 

110 PRINT "OCTOBER, ",;L-31;RETURN 

111 PRINT "NOVEMBER, ",;L-30;RETURN 

112 PRINT "DECEMBER, L-31;RETURN 

260 .THESE LINES COMPUTE WHICH WEEKDAY THE 1ST FALLS ON. 

270 IF (M<1)+(M>12)GOTO 15 

280 IF (D<1)+(D>3I)+(Y<I80I)+(Y>2399)GOTO 15 

290 IF M<3 Y-Y-1;M-M+12 

300 F-(Yb5)c4-(Y<1900)-(Y>2000)b(Y-2000)cI00+((M-2)b259)c100;.FIRST COMES ON THIS WEEKDAY 
310 W«F+D-(F+D-1)b7;. 

320 F-F-(Fc7)b7+l 
330 IF M>12M-M-12;Y-Y+1 

350 CLEAR ;.THESE LINES DRAW THE CALENDAR. 

360 FOR A--70T0 70STEP 20;BOX A,0,I,78,1;NEXT A 
370 FOR A--39T0 39STEP 13;B0X 0,A,140,I,1;NEXT A 
380 BOX -20,33,99,12,2 
390 CX—60;CY-32;GOSUB I00+M;PRINT #0,Y 

400 FOR CY-32TO -40STEP -I3;F0R CX—63TO 65STEP 8 

401 IF E-IIF F>5CX—83+(Fb20) 

402 IF E-IIF F<6CY-19;CX—83+(Fb20) 

409 IF E-D X-CX;Y-CY 

410 IF E<1OCX-CX+6 

420 IF E<-LPRINT #0,E,;E-E+1 
425 IF E>L CX-CX+6;TV-32 
430 NEXT CX;NEXT CY 

440 FOR A-ITO ll;BOX X+3,Y+1,19,12,3;FOR D-ITO 400;NEXT D;NEXT A 
555 IF KPRUN 


© 1*185 R. Ffl3R,s 


33 










M>*’. 


WANTED TOiBUYj Copies of electronic schematics for the Datamax UV-1 computer 
or similar system (excluding Datamax UV-1R computer) which utilizes Bally's 
3 custom address, data and I/O chips. I am attempting to provide myself and 
other Bally/Astrocade users the option of writing programs on a Bally high 
resolution map (320 x 204 pixels). Contact Mike Matte, 8605 W. Douglas Ave., 
Milwaukee, Wi. 53225, (414) 353-5099. 
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